home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of www.BestZips.com (Collector's Edition)
/
Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO
/
prgtools
/
prtsut53.zip
/
SU1SRC.ZIP
/
REPDEM01.DFM
/
REPDEM01.txt
Wrap
Text File
|
1996-12-09
|
8KB
|
260 lines
object dem01form: Tdem01form
Left = 57
Top = 205
Width = 604
Height = 379
ActiveControl = Panel1
Caption = 'dem01form'
Font.Color = clBlack
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
PixelsPerInch = 120
Position = poScreenCenter
OnCreate = FormCreate
TextHeight = 16
object Panel1: TPanel
Left = 0
Top = 0
Width = 596
Height = 97
Align = alTop
TabOrder = 0
object Label1: TLabel
Left = 25
Top = 16
Width = 434
Height = 19
Caption = 'This is a demonstration of the TPrintGridReport Component.'
Color = clBtnFace
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label2: TLabel
Left = 25
Top = 41
Width = 421
Height = 19
Caption = 'The 5 lines of coding you need to be able to preview and '
Color = clBtnFace
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label3: TLabel
Left = 25
Top = 64
Width = 350
Height = 19
Caption = 'print this table can be found in REPDEM01.PAS'
Color = clBtnFace
Font.Color = clMaroon
Font.Height = -17
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
end
object PreView: TBitBtn
Left = 496
Top = 9
Width = 89
Height = 27
Caption = 'Pre&View'
TabOrder = 0
OnClick = PreViewClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object Exit: TBitBtn
Left = 496
Top = 64
Width = 89
Height = 28
Caption = '&Exit'
ModalResult = 2
TabOrder = 1
OnClick = ExitClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F3333333F7F333301111111B10333337F333333737F33330111111111
0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
0333337F377777337F333301111111110333337F333333337F33330111111111
0333337FFFFFFFFF7F33330000000000033333777777777773330000}
NumGlyphs = 2
end
object Print: TBitBtn
Left = 496
Top = 37
Width = 89
Height = 27
Caption = '&Print'
TabOrder = 2
OnClick = PrintClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
end
object Panel2: TPanel
Left = 0
Top = 97
Width = 596
Height = 255
Align = alClient
BevelInner = bvLowered
BorderWidth = 4
Caption = 'Panel2'
TabOrder = 1
object DBGrid1: TDBGrid
Left = 6
Top = 6
Width = 584
Height = 243
Align = alClient
BorderStyle = bsNone
DataSource = DataSource1
Font.Color = clTeal
Font.Height = -17
Font.Name = 'Arial'
Font.Style = [fsItalic]
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 0
TitleFont.Color = clBlue
TitleFont.Height = -13
TitleFont.Name = 'Arial'
TitleFont.Style = [fsBold]
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 407
Top = 61
end
object Table1: TTable
Active = True
DatabaseName = 'DBDEMOS'
TableName = 'customer.db'
Left = 376
Top = 57
object Table1CustNo: TFloatField
DisplayWidth = 7
FieldName = 'CustNo'
end
object Table1Company: TStringField
DisplayWidth = 28
FieldName = 'Company'
Size = 30
end
object Table1City: TStringField
DisplayWidth = 15
FieldName = 'City'
Size = 15
end
object Table1Country: TStringField
DisplayWidth = 17
FieldName = 'Country'
end
object Table1Phone: TStringField
DisplayWidth = 14
FieldName = 'Phone'
Size = 15
end
end
object PrintGridReport1: TPrintGridReport
About = 'Version 5.32'
AboutRegistered = 'TOM SNIDER'
ViewButtonVisible = False
Copies = 1
OutputTo = poViewer
Orientation = Default
ViewBkColor = 11234567
Units = poInches
ViewHeading = 'Reportit Viewer'
FooterFont.Color = clBlack
FooterFont.Height = -17
FooterFont.Name = 'Arial'
FooterFont.Style = []
HeaderFont.Color = clRed
HeaderFont.Height = -20
HeaderFont.Name = 'Times New Roman'
HeaderFont.Style = [fsBold]
ViewerOptions = []
SubTotalString = '** SubTotal of @RecCount Records **'
TotalString = '*** Total of @RecCount Records ***'
ZoomPercentage = 25.000000000000000000
HeaderTop = 0.500000000000000000
HeaderStringCenter = 'Page Header'
HeaderEnabled = True
HeaderOutlined = True
HeaderFilled = False
FooterTop = 24.630000000000000000
FooterString = 'Page Footer'
FooterEnabled = True
FooterOutlined = True
FooterFilled = True
FooterStringLeft = 'Printed on @Date at @Time'
FooterStringRight = 'Page #: @Page'
DisableControls = True
BorderLeft = 0.250000000000000000
BorderRight = 0.250000000000000000
GridHeadingRow = 1.500000000000000000
GridHeadingCol = 0.250000000000000000
GridHeadingEnabled = True
GridHeadingOutlined = True
GridHeadingFilled = False
GridLines = True
LineSpacing = 1.500000000000000000
Grid = DBGrid1
GridMinWidth = False
GridCentered = True
GridPrintTotal = False
PrintSubTotals = False
FrameStyleLeft = frNone
FrameStyleTop = frDoubleThickThin
FrameStyleRight = frNone
FrameStyleBottom = frSingleThin
ReportStyle = rsOwn
Left = 440
Top = 56
end
end